﻿Namespace Global.Runa.UI.Threading

    Public Class DispatcherEventArgs
        Inherits EventArgs

        Private _dispatcher As Dispatcher

        Friend Sub New(ByVal dispatcher As Dispatcher)
            Me._dispatcher = dispatcher
        End Sub

        Public ReadOnly Property Dispatcher As Dispatcher
            Get
                Return Me._dispatcher
            End Get
        End Property

    End Class

End Namespace